perm filename HARRIN.LSP[F76,JMC] blob sn#254294 filedate 1976-12-23 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
CāŠ—;


(DE COMPACT (X) (COMP X NIL))
 

(DE COMP (X Y) 
       (COND ((ATOM X) X)
	     (T ((LAMBDA (S) (COND ((NOT (NULL S)) S)
				   (T ((LAMBDA (Z) 
					       (CONS (COMP (CAR X)
							   (CONS Z Y))
						     Z))
				       (COMP (CDR X) Y)))))
		 (MEM X Y)))))
 

(DE MEM (X Y) 
       (COND ((EQUAL X Y) Y)
	     ((ATOM Y) NIL)
	     (T ((LAMBDA (Z) (COND ((NULL Z) (MEM X (CDR Y))) (T Z)))
		 (MEM X (CAR Y))))))